home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / databases / scatterbrain11.lha / Scatterbrain / Install < prev    next >
Encoding:
Text File  |  1994-08-24  |  2.8 KB  |  123 lines
  1. ;; $Id: Install,v 7.645 94/08/24 05:16:57 Jack Exp Locker: Jack $
  2.  
  3. (set #codage-help (cat
  4.     "Codage.library is my collection of useful routines.  Scatterbrain will "
  5.     "not run if it's not installed.  Don't worry; it's small. (~4K)\n\n"
  6. ))
  7.  
  8. (set #exe1-help (cat
  9.     "Install the executable wherever you want it.  If you want it to run "
  10.     "every time you start your Amiga, put it in your SYS:WBStartup/ drawer.  "
  11.     "This file takes up about 100K of disk space.\n\n"
  12. ))
  13.  
  14. (set #guide-help (cat
  15.     "The on-line help file needs to installed where they can be found by MUI "
  16.     "and AmigaGuide.  The Help:" @language " drawer is one such place.  "
  17.     "This file takes needs about 80K of disk space.\n\n"
  18. ))
  19.  
  20. (set #image-help (cat
  21.     "These are some images I created.  Install them if you like; they are "
  22.     "in NO way crucial to Scatterbrain.  They need about 35K of disk space.\n\n"
  23. ))
  24.  
  25. (set #assign-help (cat
  26.     "Here you may add an assign to your s:User-Startup or s:Startup-Sequence "
  27.     "file.  The SB: assign is the initial directory Scatterbrain chooses for "
  28.     "storing its data in, unless you specify otherwise.  So, this assign is "
  29.     "not necessary, but does make things slightly more convenient.\n\n"
  30. ))
  31.  
  32. (welcome)
  33.  
  34. ;;
  35. ;; Executable
  36. ;;
  37. (set chosen-dest (askdir
  38.     (prompt "Where shall I install the executable?")
  39.     (help #exe1-help @askdir-help)
  40.     (default "SYS:WBStartup")
  41. ))
  42.  
  43. (if (exists (tackon chosen-dest "SB.info"))
  44.     (copyfiles
  45.         (prompt "Files to install")
  46.         (source "")
  47.         (dest chosen-dest)
  48.         (help #exe1-help @copyfiles-help)
  49.     (confirm)
  50.         (choices "SB")
  51.     )
  52.     (copyfiles
  53.         (prompt "Files to install")
  54.         (source "")
  55.         (dest chosen-dest)
  56.         (help #exe1-help @copyfiles-help)
  57.         (choices "SB")
  58.     (confirm)
  59.         (infos)
  60.     )
  61. )
  62.  
  63. (complete 40)
  64.  
  65. ;;
  66. ;; On-line help
  67. ;;
  68. (copyfiles
  69.     (prompt "Help files to install")
  70.     (source "")
  71.     (dest (cat "Help:" @language))
  72.     (choices "SB.guide")
  73.     (infos)
  74.     (confirm)
  75.     (help #guide-help @copyfiles-help)
  76. )
  77.  
  78. (complete 70)
  79.  
  80. ;;
  81. ;; libs
  82. ;;
  83. (copylib
  84.     (source "libs/codage.library")
  85.     (help #codage-help @copylib-help)
  86.     (prompt "Installing codage.library in libs:")
  87.     (dest "libs:")
  88.     (confirm)
  89. )
  90.  
  91. (complete 80)
  92.  
  93. ;;
  94. ;; Image files
  95. ;;
  96. (if (exists "MUI:Images" (noreq))
  97.     (set image-dest "MUI:Images")
  98.     (set image-dest "SYS:Prefs/MUI-Images")
  99. )
  100.  
  101. (copyfiles
  102.     (prompt "Extra MUI images to install")
  103.     (help #image-help @copyfiles-help)
  104.     (source "images/")
  105.     (dest image-dest)
  106.     (all) 
  107.     (confirm)
  108. )
  109.  
  110. (complete 90)
  111.  
  112. ;;
  113. ;; Assign SB:
  114. ;;        
  115. (startup @app-name
  116.     (prompt "Shall I add an assign for SB: to your startup?")
  117.     (help #assign-help @startup-help)
  118.     (command (cat "ASSIGN SB: " chosen-dest))
  119. )
  120.  
  121. (complete 100)
  122.  
  123. (set @default-dest chosen-dest)